home *** CD-ROM | disk | FTP | other *** search
- /* Tutorial program for WindowKey, can be started by WindowKey (hotkey
- lcommand lshift numpad enter in the configuration
- presets/Example.WindowKey) */
-
- ADDRESS "WindowKey"
- SAY "We'd better get a bigger window first !"
- WIN_ZIP"(*A)"
-
- SAY "WindowKey includes screen scrolling facilities !"
- DO i=1 TO 200
- SCR_MOVE"(,1,*F)"
- END i
- DO i=1 TO 200
- SCR_MOVE"(,-1,*F)"
- END i
-
- SAY "Tell me what arrangement you want for your windows on the front screen"
- SAY " 1: Stacked"
- SAY " 2: Diagonal"
- SAY " 3: Horizontal"
- SAY " 4: Vertical"
- SAY " 5: Full size"
- SAY " 6: Grid"
- PULL Arrangement .
- SCR_STACK || "(" || Arrangement || ",*F)"
-
- SAY "Let's call the preferences program, to throw an eye at all commands."
- EXEC_PREFS
-